home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / andy.lha / FALL.s < prev    next >
Text File  |  1995-06-27  |  863b  |  67 lines
  1.  
  2. PLR1_fall
  3.  move.l PLR1s_tyoff,d0
  4.  move.l PLR1s_yoff,d1
  5.  move.l PLR1s_yvel,d2
  6.  sub.l d1,d0
  7.  bgt.s .aboveground
  8.  sub.l #512,d2
  9.  blt.s .notfast
  10.  move.l #0,d2
  11. .notfast:
  12.  add.l d2,d1
  13.  sub.l d2,d0
  14.  blt.s .pastitall
  15.  move.l #0,d2
  16.  add.l d0,d1
  17.  bra.s .pastitall
  18.  
  19. .aboveground:
  20.  add.l d2,d1
  21.  add.l #256,d2
  22.  
  23.  move.l PLR1_Roompt,a2
  24.  move.l ToZoneWater(a2),d0
  25.  cmp.l d0,d1
  26.  blt.s .pastitall
  27.  
  28.  cmp.l #256*2,d2
  29.  blt.s .pastitall
  30.  move.l #256*2,d2
  31.  
  32. .pastitall:
  33.  
  34.  move.l d2,PLR1s_yvel
  35.  move.l d1,PLR1s_yoff
  36.  
  37.  rts
  38.  
  39.  
  40. PLR2_fall
  41.  move.l PLR2s_tyoff,d0
  42.  move.l PLR2s_yoff,d1
  43.  move.l PLR2s_yvel,d2
  44.  sub.l d1,d0
  45.  bgt.s .aboveground
  46.  sub.l #512,d2
  47.  blt.s .notfast
  48.  move.l #0,d2
  49. .notfast:
  50.  add.l d2,d1
  51.  sub.l d2,d0
  52.  blt.s .pastitall
  53.  move.l #0,d2
  54.  add.l d0,d1
  55.  bra.s .pastitall
  56.  
  57. .aboveground:
  58.  add.l d2,d1
  59.  add.l #256,d2
  60. .pastitall:
  61.  
  62.  move.l d2,PLR2s_yvel
  63.  move.l d1,PLR2s_yoff
  64.  
  65.  rts
  66.  
  67.